home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 356 / defs / convert.def < prev    next >
Text File  |  1992-03-11  |  3KB  |  76 lines
  1. (*    File name: Conversions.def                *)
  2. (*    Creation : Orginal m2m File                *)
  3. (*    Function : Number to string conversion            *)
  4. (*    By     : ETH                        *)
  5. (*                                *)
  6. (*
  7. *    Copyright (c) 1985, 1986 by
  8. *    Djavaheri Bros., Foster City, California.
  9. *    All Rights Reserved.
  10. *
  11. *    This software is furnished under a license and may be used and copied
  12. *    only  in accordance with  the  terms  of  such  license and  with the
  13. *    inclusion of the above copyright notice.  This software or  any other
  14. *    copies thereof may not be provided or otherwise made available to any
  15. *    other  person.   No title to and ownership of the  software is  herby
  16. *    transferred.
  17. *
  18. *    The information in this software is  subject to change without notice
  19. *    and  should  not be construed as a commitment by Djavaheri Bros.   No
  20. *    warranty is implied or expressed.
  21. * 
  22. *    SCCID  = "1.1    1/26/86"; 
  23. *)
  24. (*    History of modifcation                    *)
  25. (*    Date        Who        Why            *)
  26. (*    7/5/84        Morris         Change to BTS        *)
  27. (*                                *)
  28. DEFINITION MODULE Convert;                  (* LG *)
  29.    
  30.   EXPORT QUALIFIED IntToStr,StrToInt, 
  31.                    CardToStr, StrToCard,
  32.                    NumToStr, StrToNum,
  33.                    OctalToStr,HexToStr;
  34.                
  35.  
  36.   PROCEDURE OctalToStr(num, len: CARDINAL; VAR str: ARRAY OF CHAR;
  37.             VAR success : BOOLEAN);
  38.     (* conversion of an octal number to a string *) 
  39.  
  40.   PROCEDURE HexToStr(num, len: CARDINAL; VAR str: ARRAY OF CHAR;
  41.             VAR success : BOOLEAN);
  42.     (* conversion of a hexadecimal number to a string *) 
  43.  
  44.   PROCEDURE CardToStr  (card: CARDINAL; VAR str: ARRAY OF CHAR;
  45.                                width : CARDINAL;
  46.                VAR success : BOOLEAN);
  47.   
  48.     (* conversion of a cardinal decimal number to a string *) 
  49.  
  50.   PROCEDURE IntToStr      (int: INTEGER; 
  51.                            VAR str: ARRAY OF CHAR; 
  52.                                width : CARDINAL;
  53.                VAR success : BOOLEAN);
  54.   
  55.   PROCEDURE NumToStr      (num: CARDINAL; 
  56.                            VAR str: ARRAY OF CHAR; 
  57.                    base :  CARDINAL;
  58.                                width : CARDINAL;
  59.                VAR success : BOOLEAN);
  60.  
  61.   PROCEDURE StrToInt ( VAR str: ARRAY OF CHAR;
  62.                VAR int : INTEGER;
  63.                        VAR success : BOOLEAN);
  64.  
  65.   PROCEDURE StrToCard ( VAR str: ARRAY OF CHAR;
  66.                VAR card : CARDINAL;
  67.                        VAR success : BOOLEAN);
  68.  
  69.   PROCEDURE StrToNum ( VAR str: ARRAY OF CHAR;
  70.                VAR num : CARDINAL;
  71.                   base :  CARDINAL;
  72.                        VAR success : BOOLEAN);
  73.  
  74.     (* conversion of an integer decimal number to a string *) 
  75. END Convert.
  76.